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Summary: This report shows that a stack-based programming language like Forth can be 
realized with a very small number of primitive operations. By gradually breaking down the 
operations in Forth, you can find a minimal set that is also minimal in terms of the number of 
gates when realized in hardware. The proposed hardware architecture can be easily extended 
using a simple methodology depending on performance requirements. The basic hardware 
design remains and only new operations are introduced at the hardware level. This gives a fluid 
boundary between hardware and software. A review of the arithmetic operations and control 
structures in Forth is conducted in detail to show how to find the minimum set of primitives 
required to realize Forth. 


INTRODUCTION 


Stack-based programming languages like Forth can be defined by a few primitive operations. 
Most of the programming language can be described in itself. In this report, we will look for the 
minimal set of primitives needed to realize the Forth programming language. The intention is to 
show that a very small set of instructions is needed and that one can then, through analysis of 
applications, determine how and with which operations the innermost core of the instructions 
should be expanded. 


By finding the minimum set of operations, we can construct a basic hardware architecture and 
then through a set of design rules show how this machine can be systematically expanded 
depending on performance requirements. The choice of the operations to be performed in 
hardware depends mainly on the cost of hardware and the frequency of use in applications. If 
e.g. multiplication is a very common operation, it should be supported in hardware to give the 
application higher performance. Furthermore, it should be pointed out that the architecture can 
also be used to facilitate emulation of the virtual Forth machine on other physical processors on 
the market by providing an understanding of which operations are important to realize in 
machine instructions of the underlying processor. 


The virtual Forth machine can be seen as a so-called dual stack machine. Two stacks are used 
to transfer parameters to and results from procedures and to save return addresses for 
procedure calls. Due to the basic functional nature of the language, operations and control 
structures are woven together without the need for local variables. Since the return address 
stack is only used for calls to and returns from procedures, this stack can be used freely within 
the procedure. Formally, it has been shown that two stacks are sufficient to obtain the same 
expressive power as the theoretical Turing machine. This means that arbitrarily many levels of 
interpreters can be woven together using the two stacks, thereby emulating a Turing machine 
with infinite memory. The virtual Forth machine is thus a more universal calculation machine 
compared to a traditional register machine. 


Stack-based code has proven to be the most efficient coding methodology in terms of 
implementation when you consider that modern software development methodology is based on 
small short subroutines being used to abstract the program structure. This coding methodology 
provides both memory and processor efficiency because all the operations are handled 
symmetrically and because of the extremely low cost of a subroutine call in Forth compared to 
programming languages such as Pascal and Ada. In these languages, many memory 
operations are required to realize a subroutine call as traditional processors lack hardware 
support for this type of operation. 


The access to the return address stack and the possibility of directly manipulating the execution 
address thereby means that the minimal machine does not have to realize calls as a primitive 
operation, it can be accomplished as a high-level operation. How this can be realized will be 
shown in future sections. 


The report has the following structure: In the first section, an analysis is carried out of which 
primitives are needed to realize arithmetic and logical operators as well as control structures in 
Forth. These primitives are then described in a so-called register transfer language to provide a 
deeper understanding of which transactions are required at the hardware level. Realization of 
the high-level operations is then processed as these affect the instruction retrieval of the virtual 
machine. Finally, a possible hardware realization of the primitive operations is treated and the 
structure of a minimal dual stack architecture is described in detail. 


Elementary knowledge of Forth is required throughout. For the unfamiliar, a very brief 
introduction to the language is given here. 


A SHORT INTRODUCTION TO FORTH 


"FORTH is like the Tao: it is a Way, 
and is realized when followed. 

Its fragility is its strength; 

its simplicity is its direction." 


Michael Ham, winning entry in Mountain View Press's 
contest to describe FORTH in twenty-five words or less. 


Procedures and functions are written as so-called colon definitions. These start with the colon 
operation and end with the semicolon. Blank is used as a punctuation mark throughout. The 
word after the colon is the name of the new definition (procedure). Parentheses are treated as 
comments in the language and it is a good programming style to describe how the definition 
affects the parameter stack because all parameter transfer is implicit. Normally a notation is 
used which symbolically shows what the stack looks like before and after the operation. 


: example ( before -- after ) code ; 


Since Forth is written in postfix (reverse Polish) notation, the code is executed in the exact order 
in which it is written with certain exceptions because control structures using jumps can occur in 


the code. An infix expression can easily be rewritten to postfix by moving the operation between 
two operands after these. 


2¢+5 => 25+ 
X<Y => XY-< 


For more complicated expressions, one must also consider transferring the operations to the 
correct sequence depending on the priority and parentheses in the input expression. 


(2+5)*7 => 25+7* 
2+(5+7) => 257+*% 


Postfix code is executed in the order it appears from left to right. The only exception is control 
structures that can give rise to a change in the flow through a definition (jump). Forth is a 
structured language when it comes to control structures as there are no explicit jumps. The 
condition statement, IF-ELSE-THEN, is also written in a special postfix form. 


condition IF section,,,. THEN 
condition IF section,,,. ELSE section;,;,. THEN 


If the condition, the parameter to IF, is true (not zero), the code is executed between IF and 
THEN or IF and ELSE. If the parameter to IF is false (zero), there is a jump to the code after 
ELSE or to the end of the condition statement if ELSE is missing. With Forth's definition of the 
values of true and false, no special test-if-true operation is needed. An iterative expression will 
also be used below. This is very similar to Pascal's WHILE loop (but has more power) and has 
the following structure: 


BEGIN section1 condition WHILE section2 REPEAT 


The first section and the condition are executed and then if the parameter to WHILE is true (not 
zero) the second section is executed and the treatment is repeated. Otherwise, if the parameter 
is false (zero), another jump occurs after REPEAT. In Forth, basic primitives that perform a 
number of merged operations are often given a name that corresponds to the merger. An 
operation that increments is consequently called 1+ and an operation that tests against zero 0=. 


PROPOSAL FOR PRIMITIVE OPERATIONS 


One question that has often been asked of me when | present stack-based programming 
languages is: Which primitives must be programmed and what is the minimum set? | will show 
here that one can derive a very small set of operations and an associated architecture to realize 
Forth. The construction is not the fastest minimal set but rather the cheapest and thus, to some 
extent, the slowest. The presentation here is to show that a very small set is sufficient and that 
this can then be expanded according to application needs. This minimal dual stack architecture 
can then be extended through a simple methodology to achieve higher performance. 


Arithmetic operations: plus and minus 


What primitives are needed? Let's break the problem down a bit to make it easier to deal with. 
Can the arithmetic operations, plus, minus, etc., be realized with a number of primitives? And if 
so, which ones? Again, we are looking for the cheapest solution from a hardware point of view, 
so a solution with pluses and minuses that implies an arithmetic logic unit would be desirable. 


An old method which has been used in mechanical counting boxes to achieve plus is to use 
repeated subtraction and addition with one. Minus can then be realized with the help of plus by 
first negating the number. Furthermore, negating a two-complement number is the same as 
negating one-complement (inverting) and adding one. 


2 FAC Yes 2 


dup @< ( Check direction ) 
if begin ( Counting downwards ) 
dup ( While not zero do ) 
while 
1+ swap 1- swap ( Increment y and decrement x ) 
repeat 
else 
begin ( Counting upwards ) 
dup ( While not zero do ) 
while 
1- swap 1+ swap ( Decrement y and increment x ) 
repeat 
then 
drop ; ( Drop y and return the result) 


: negate ( x -- y ) not 1+ ; 
: - (x y -- z ) negate + ; 


Let us now continue the search for the minimal set of operations and try to accomplish the 
operations used using other primitive operations. We now have the problem of finding primitives 
to perform the test-if-negative operation, jump and stack operations. 


Boolean and relational operations 


How to achieve test-if-negative? We can write about this as a test of the most significant part of 
the speech. Throughout, | assume that we are dealing with a 16-bit implementation of the 
minimal Forth machine hence the constant -32768 (hex 8000) which corresponds to a 16-bit 
number with the most significant bit set to one and the other bits to zero: 


-32768 constant minint 

: boolean ( x -- flag ) 0= @= ; 

: @< ( x -- flag ) minint and boolean ; 

: @> ( x -- flag ) dup O< swap @= or not ; 
>= (x y -- flag ) - @ ; 

>< (x y -- flag ) - O< ; 

>: > (x y -- flag ) - @ ; 


The relation operators, equal to, less-than and greater-than, are now easily defined by what we 
have obtained by using subtraction and testing in relation to zero instead. An exception is the 
operation equal to because a more efficient realization can be achieved with the help of 
exclusive-or. 


: = (x y -- flag ) xor @= ; 


The list of primitives can be further reduced by the fact that the logical operations can be 
accomplished by means of a functionally complete binary operator such as e.g. nand or nor. 
The other operators, not, and, or and exclusive-or are defined here using nand: 


: not ( x -- y ) dup nand ; 


: and ( x y -- z ) nand not ; 
: or ( x y -- z ) not swap not nand ; 
: xor ( xX y -- z ) over over not nand >r swap not nand r> nand ; 


Stack operations 


Now we are at the stack operations. All stack operations can be rewritten as memory access 
functions by using the first cell in memory as a temporary storage location. Again, it should 
probably be pointed out that we are not looking for a realization with high performance but one 
with a minimal number of primitives. In the section on hardware realization, however, several of 
the stack operations will be offered directly in hardware at no extra cost as these are implicit in 
the other primitives. 


variable t 
:t! (x -)til; 
>: t@( --x)t@; 


First, two helper definitions for moving data to and from the temporary storage location in 
memory. Now the stack operations can be given with the help of these. 


: drop (x -- ) t! ; 
: dup ( x -- x x ) t! t@ t@ ; 
: swap ( x y -- y x ) t! or t@ r> ; 


: rot ( x y z -- y z X) >r swap r> swap ; 
: over ( xX y -- X y X) >r dup r> swap ; 
: ?dup ( x -- (@] or (x x]) dup if dup then ; 


: r@ ( -- x) r> r> dup >r swap >r ; 


Arithmetic operations: continued 


What is missing now is to show that the other arithmetic operations can be described with the 
existing primitives. First the elementary operations: By using rules about inverse transformations 
and how operations behave under these conditions, the subtraction-by-one operation can be 
defined in the form of one-complement and addition-by-one. 


: 1- ( x -- y) not 1+ not ; 
: 2+ ( x -- y) 14+ 1+ ; 
: 2- ( x -- y) not 2+ not ; 


Absolute amount, the minimum and maximum function can be easily defined using the others: 


: abs ( x -- y ) dup @< if negate then ; 
: min ( x y -- z ) over over > if swap then drop ; 
: max ( xX y -- z ) over over < if swap then drop ; 


Now to the last arithmetic operations; multiplication and division. These can be realized as 
repeated addition or subtraction, but the sign of the operands must first be checked: 


>: * (xy--z) 
dup ( Check not zero) 


if over O< over O< xor >r ( Calculate sign of result) 
@ rot abs rot abs ( Use absolute values) 
begin 
dup ( While not zero do) 
while 
swap rot over + ( Add to accumulator) 
swap rot 1- ( And decrement counter) 
repeat 
drop drop ( Drop temporary parameters) 
r> if negate then ( Check sign for negate) 
else 
swap drop ( Return zero) 
then ; 


re oe Ue Sea) SO ee 
: /mod (x y -- rq) 
dup 
if over O< >r 


Check not zero division ) 
Save sign of divident ) 

Calculate sign of result ) 
Use the absolute values ) 


over @< over @< xor >r 


a a a 


@ rot abs rot abs 


begin 
swap over - dup @< not ( Calculate next remainder ) 
while ( Check not negative ) 
swap rot 1+ ( Increment quotient ) 
rot rot ( And go again ) 
repeat 
+ swap Restore after last loop ) 


r> if negate then 
r> if swap negate swap then 
then ; 


Check sign of quotient ) 


—_~~ ~~~ 


Check sign of remainder ) 


: / ( x y -- q ) /mod swap drop ; 
: mod ( x y -- r_) /mod drop ; 
> 2/ (x--y)2/; 


So far the arithmetic operations. What now remains to be processed is partly the handling of 
compiled numbers (literals) and the control structures. 


Compiling operations and control structures 


Constants in code must add their value to the parameter stack at the time of execution. This is 
done through the function (literal). To give a definition that becomes an independent 
number of bits per word in an implementation machine, cell and cel1+ are used: 


2 constant cell 
: cell+ ( x -- y) 1+ 1+ ; 


: (literal) ( -- n) r> dup cell+ =r @ ; 
: compile ( ) r> dup cell+ =r @ ; 
: literal ( n -- ) compile (literal) , ; immediate 


literal is a compiled word, which thus compiles when it is executed and it always does when 
it is immediate. 


To handle memory allocation, a number of primitives must also be created. These follow 
traditional implementation methods. Above, the comma operation is used, which assigns and 
allocates memory in the so-called dictionary. Four primitives are normally used to handle 
allocation. First a variable that holds the address of the next free memory cell in the dictionary 
then a function that gives the contents of this variable and a function for allocating memory. 


variable dp ( -- addr ) 


: here ( -- x ) dp @ ; 

: allot ( n -- ) dp t! ; 

: , (x -- ) here ! cell allot ; 

: +! ( n addr ) dup @ rot + swap ; 


To conclude this analysis of what primitives a minimal virtual Forth machine needs, we will now 
look at the control structures in Forth. Normally, these are also described using a number of 
primitives. We need to realize two jumping operations, unconditional jumping and conditional 
jumping. These will use the contents of the subsequent memory cell as the jump address. In 
order not to give a recursive definition of the minimal machine, | use direct addresses here and 
not relative addresses. 


: (branch) ( -- ) r> @>r ; 


Unconditional jump does not pose any major problems. Just retrieve the return address and 
then what it points to and use this as the return address. Conditional jump is somewhat more 
difficult because we have to decide based on the parameter whether a jump should be made or 
whether the jump address should be passed in the code. 


: (?branch) ( flag -- ) 


@= dup r@ @ and ( If true then branch using address ) 
swap not r> cell+ and ( Else skip inline address ) 
or >r ; ( Compose new return address ) 


We now have all the building blocks to be able to construct the control structures in Forth. Four 
help primitives are used to abstract selection and resolution of jump addresses. 


: >mark ( -- addr ) here © , ; 


: >resolve ( addr -- ) here swap ! 
: <mark ( -- addr) here ; 
: <resolve ( addr -- ) , ; 


First, the condition structure that will compile jumps forward in the code: 


: if ( flag -- ) compile (?branch) >mark ; immediate 
: else ( -- ) compile (branch) >mark swap >resolve ; immediate 
: then ( -- ) >resolve ; immediate 


Last group of iterative constructions: 


: begin ( -- ) <mark ; immediate 

: while ( flag -- ) compile (?branch) >mark ; immediate 

: repeat ( -- ) compile (branch) swap <resolve >resolve ; immediate 
Compilation 


We have now built up the basic operations of the language from a very limited set of primitives. 
For the definitions above, only the following primitives have been used: 1+ @= nand @! >r 
r>. A total of seven primitives are required plus two to handle calls and returns from procedures 
(exit). 


One can observe a number of interesting features of this set. First, there is a lack of jump as a 
primitive operation. This can, as has been shown, be realized with memory access and stack 
functions. 


The minimal architecture for Forth thus does not have to offer jumping instructions. These can 
be built by the nine primitives. Stack operations can also be built. This leaves us with a very 
small and symmetrical list of primitives. 


It should be pointed out that the list of primitives can be easily expanded and thereby provide 
better implementations. By allowing addition and logical shift to be primitives, multiplication and 
division can be rewritten into more efficient forms. The basic set presented here is based on 
minimal hardware. More about this in the section on hardware implementation. 


PRIMITIVE OPERATIONS 


After the analysis of the operations required, the final list is the following eight operations: 


1+ ( x -- y) 
@= ( x -- flag) 
nand ( x y -- Zz) 


>r (x -- ) 
FS (==) 


@ ( addr -- x) 
! ( x addr -- ) 
exit ( -- ) 


Aninth primitive arises to handle subroutine calls (colon definitions). These primitives can now 
be described using a register transfer language (RTL) to give us more information about 
possible hardware realizations of the internal structure of a minimal Forth machine. By studying 
the basic transactions between the internal units of the machine, we can derive an appropriate 
interconnection that offers the desired level of cost, performance, parallelism, etc. We must first 
name different registers, stacks and memory in the system: 


tos top of parameter stack register 
ps parameter stack 

ip instruction pointer 

rs return stack 

ir instruction register 

ma memory address port 

md memory data port 

mm main memory 


The registry transfer language used has the following syntax: 


<source> -> <destination> , <parallel assignment> 
<source> -> <destination> ; <sequential assignment> 


<source> and <destination> are register, stack, port or memory. 


It can be observed that the operations are partly with one parameter (unary) and partly with two 
parameters (binary). One-plus and zero-equal can be described as the following register 
transfer: 


unary ( x -- y) function, (tos) -> tos 
1+ ( x -- y) tos + 1 -> tos 
Q@= ( x -- y) tos = @ -> tos 


The binary operators use both the top register (tos) and the parameter stack (ps). The 
operations have the following general form: 


binary ( x y -- z) function,(pop(ps), tos) -> tos 


nand ( x y -- Zz) nand (pop(ps), tos) -> tos 


The minimal set of instructions can be easily extended with other unary and binary operators 
without any special handling. The operations that now remain to be described in register 
transfer form help with the transport of data between the different units; To and from the memory 
and return address stack. 


>r (x -- ) pop(ps) -> tos, tos -> push(rs) 

r> ( -- x ) pop(rs) -> tos, tes -> push(ps) 

@ ( addr -- x ) tos -> rna, rnm[ma] -> md, md -> tos 

! ( x addr -- ) tos -> rna, pop(ps) -> md, md -> mrn[rna]; pop(ps) -> tos 


Assigning the memory given an address and data on the parameter stack will require two 
phases. The other operations can be done on a clock cycle. Now only the two basic control 
primitives remain; calls and returns from subroutine: 


call ( -- ) ir -> ip, ip -> push(rs) 
exit ( -- ) pop(rs) -> ir 


In order to fully describe the minimal Forth processor, it is finally required that the overall 
instruction retrieval and execution be defined in the register transfer form: 


fetch ( -- ) ip -> ma, mm[ma] -> ir <phase,> 
perform ( -- ) do(ir), ip + 1 -> ip <phase,> 


The execution phase (per form) requires that the operation be decoded and executed by the 
machine (do). The instruction pointer (ip) has been chosen to be incremented in parallel with the 
execution phase. This means that the hardware requirements for this part of the processor are 
minimized. 


HIGH LEVEL OPERATIONS 


The high-level operations have been described with colon definitions, but some thought must go 
into how the innermost address interpreter will work. If you want to avoid this completely, you 
can easily give the colon this definition: 


: 1 ( -- ) create ] does> >r ; 


That is to say, a high-level operation is a colon definition that when executed takes the reference 
to its body and considers that the return address. This causes the colon definition to be 
performed. Furthermore, variable and constant are defined as the following high-level 
operations: 


: variable ( -- ) create @ , does> ; 
: constant ( x -- ) create , does> @ ; 


In a virtual machine, it must be possible to separate calls from machine instructions. One 
method of accomplishing this is to recognize the fact that in a character-addressed (byte) 
memory, stacks will be addresses with even memory addresses. Hereby this can be used as a 
signal to the innermost interpreter what is a subroutine call. In short, addresses are instructions 
for subroutine calls. 


For reasons of space and as it is not important for the minimal set of instructions for Forth, | 
have chosen not to describe the handling of create and does>. For the curious, the appendix 
can help as | present a Forth simulator of the minimal machine. 


HARDWARE IMPLEMENTATION 


The virtual machine requires five function modules; 1) top of parameter stack register (tos), 2) 
parameter stack, 3) instruction pointer (ip), 4) return address stack and 5) primary memory. In a 
hardware realization of the above-mentioned primitives, one can conclude, by analyzing how 
data is moved between the different units in the virtual machine, that a two-bus construction is 
sufficient as only two flows of data take place simultaneously. Two ports are required between 
processor and memory; one for the memory address (ma) and one for transporting data to and 
from the memory (md). 


returnstack 


read/write 


Fig. 1: A possible hardware structure for a dual stack architecture 


Through the two-bus design, most of the primitive operations can be performed within a clock 
cycle, including the instruction retrieval. Unary operations (one parameter) are performed 
directly on the top register (tos). Binary operations require that data be retrieved from the 
parameter stack. With this basic construction, any unary or binary operation can be turned into a 
hardware primitive by realizing the function in hardware around the top register (tos). But only 
1+, @= and nand are enough to begin with. 


To achieve better performance, one can examine the frequency of use of the different 
operations in different Forth applications. Of course, it will turn out that stack, jump and 
arithmetic operations such as plus and minus have a very high frequency of use and should 
therefore be realized in hardware. The previous chapter described the general handling of unary 
and binary operations in architecture. It is enough to expand the logic that surrounds the top 
register (tos) to achieve higher performance for these types of operations. 


The selected presentation is not perfect or optimal. Other definitions of e.g. multiplication using 
shift and addition provides better performance. Again, these types of redefinitions cause only 
small local changes in the Forth architecture. 


CONCLUSIONS 


By dissecting the traditional operations in Forth, | have shown that these can be realized with a 
very small set of primitives. The goal has been to find the minimum amount and to specify a 
hardware model for the realization of dual stack architectures that can be expanded depending 
on the application area. Due to the minimal requirement for hardware (gates), this control 
machinery can be used in many applications where otherwise it would not be possible to select 
a processor for the control task. The simplified construction can very easily be expanded to 
achieve a higher level of parallelism by e.g. division of the buses. In this way, the limit, one 
instruction per clock cycle, can be broken. 


APPENDIX 


Below is a realization of the derived minimal machine for Forth in Forth itself. Code has been 
used, among other things, to simulate and verify the architecture. 


.( Loading Minimal Forth Machine definitions...) cr 
\ An implementation of a Minimal Forth Machine 

\ Written by Mikael Patel, Copyright (C) 1998. 

\ Started on: 1@ December 1989 

\ Last updated: 15 January 1990 

\ Dependencies: (TILE Forth 2.48) none 

vocabulary minimal 

minimal definitions 


forth 


\ Hardware Devices: Registers and Stacks 


: register ( -- | Create a register variable) 
create @ , ( Create symbol and initiate) 
does> @ ; ( Fetch register value) 

: register ( x -- | Print value of register) 


: ( Print as a number) 


: -> ( x -- | Assign operator for registers) 
' >body ( Access preceding symbol) 
[compile] literal ( May compile as literal) 
compile ! ; immediate ( and store value to body) 
: stack ( n -- | Create a stack with n-depth) 
create ( Create symbol for stack) 
here swap 2+ cells allot ( Allocate stack area) 
here over cell + ! ( Initiate the stack bottom) 
here swap ! ; ( Initiate the stack pointer) 
: push ( x s -- | Push value onto stack) 
cell negate over +! @ ! ; ( Decrement and store value) 
: pop ( s -- x | Pop value from stack) 


dup @ @ cell rot +! ; ( Fetch value and increment) 


.stack (s -- ) 
dup cell + @ swap @ ( Fetch stack pointer and bottom) 
?do i @ . cell +tloop ; ( Fetch values and display) 


\ Forth Machine Registers 


register ir ( Instruction register) 
register ip ( Instruction pointer) 
16 stack rp ( Return address stack) 
register tos ( Top of stack register) 
16 stack sp ( Parameter stack) 


\ Instruction execution trace flag 
variable trace 


\ Print machine state 


.registers ( -- | Display the machine state) 

"ir: " ir .name space ( Print name of instruction) 
"ip: " ip cell - .register ( Print value of instr. pointer) 
"rp: " rp .stack ( Print contents of return stack) 
"tos: " tos .register ( Print value of top of stack) 
"sp: " sp .stack cr ; ( Print contents of param. stack) 


\ Forth Machine Instructions 


instruction ( -- | Create a instruction symbol) 

create ; 

code ( -- x | Compile instruction code) 

minimal ( Select from minimal vocabulary) 
[compile] ['] ( Compile symbol value) 

forth ; immediate ( Go back to the forth vocabulary) 


\ The list of possible instructions 
instruction 1+ 

instruction @= 

instruction NAND 

instruction >R 

instruction R> 

instruction ! 

instruction @ 

instruction EXIT 

instruction HALT 


: CALL ( -- ) 
ip rp push ( Push instruction pointer) 
ir >body -> ip ; ( And fetch new value) 


\ The Minimal Forth Machine 


: fetch-instruction ( -- ir) 

ip @ dup -> ir ( Fetch the next instruction) 

ip cell + -> ip ; ( Increment instruction pointer) 
: processor ( -- | The virtual machine) 

begin 


fetch-instruction 
trace @ if .registers then 


case 
code 1+ of tos 1+ -> tos endof 
code @= of tos @= -> tos endof 


code NAND of sp pop tos and not -> tos’ endof 
code >R- of tos rp push sp pop -> tos’ endof 
code R> of tos sp push rp pop -> tos endof 


code ! of sp pop tos ! sp pop -> tos’ endof 
code @ of tos @ -> tos endof 
code EXIT of rp pop -> ip endof 
code HALT of true abort" HALT" endof 
CALL 
endcase 
again ; 
: run ( addr -- | Run the virtual machine) 
-> ip ( Assign instruction pointer) 
@ -> tos ( Initiate top of stack) 
." RUN" cr ( And run the processor) 


processor ,; 


\ A simple compiler for the Minimal Forth Machine 
minimal 


: CREATE ( -- ) create ; 
: COMPILE ( -- ) compile compile ; immediate 


: DEFINE ( -- ) CREATE ] ; 

: END ( -- ) COMPILE EXIT [compile] [ ; immediate 
: BLOCK ( n -- ) cells allot ; 

: DATA ( -- ) , ; 


\ Variable management 


DEFINE [VARIABLE] ( -- addr) R> END 
: VARIABLE ( -- addr) CREATE COMPILE [VARIABLE] 1 BLOCK ; 


\ Constant management 


DEFINE [CONSTANT] ( -- n) R> @ END 
: CONSTANT ( n -- ) CREATE COMPILE [CONSTANT] DATA ; 


\ Basic stack manipulation functions and some utility functions 


VARIABLE T 
DEFINE T! ( x -- ) T ! END 
DEFINE T@ ( -- x) T @ END 


DEFINE DROP ( x -- ) T! END 

DEFINE DUP ( x -- x x) T! T@ T@ END 

DEFINE SWAP ( x y -- y x) T! >R T@ R> END 

DEFINE ROT ( x y z -- y z x) >R SWAP R> SWAP END 
DEFINE OVER ( x y -- x y x) >R DUP R> SWAP END 
DEFINE R@ ( -- x) R> R> DUP >R SWAP >R END 


\ Logical function 


DEFINE BOOLEAN ( x -- flag) @= @= END 

DEFINE NOT ( x y -- z) DUP NAND END 

DEFINE AND ( x y -- z) NAND NOT END 

DEFINE OR ( x y -- z) NOT SWAP NOT NAND END 

DEFINE XOR ( x y -- y) OVER OVER NOT NAND >R SWAP NOT NAND R> NAND END 


\ Relation operations 


-2147483648 CONSTANT MININT ( -- x | 32-bit minimum integer value) 


DEFINE @< ( x -- flag) MININT AND BOOLEAN END 
DEFINE @> ( x -- flag) DUP @< SWAP @= OR NOT END 
DEFINE = ( x y -- flag) XOR @= END 


\ Primitive arithmetic functions 


DEFINE 1- ( x -- y) NOT 1+ NOT END 
DEFINE 2+ ( x -- y) 1+ 1+ END 
DEFINE 2- ( x -- y) NOT 1+ 1+ NOT END 


\ Cell sizes and functions 

4 CONSTANT CELL 

DEFINE CELL+ ( x -- y) 1+ 1+ 1+ 1+ END 
\ Branch instructions 


DEFINE (BRANCH) ( -- ) R> @ >R END 
DEFINE (?BRANCH) ( flag -- ) O= DUP R@ @ AND SWAP NOT R> CELL+ AND OR >R END 


\ Compiler functions 

forth 

: >MARK ( -- addr) here @ , ; 

: >RESOLVE ( addr -- ) here swap ! ; 
: <MARK ( -- addr) here ; 

: <RESOLVE ( -- addr) , ; 

minimal 


: IF ( flag -- ) COMPILE (?BRANCH) >MARK ; immediate 

: ELSE ( -- ) COMPILE (BRANCH) >MARK swap >RESOLVE ; immediate 

: THEN ( -- ) >RESOLVE ; immediate 

: BEGIN ( -- ) <MARK ; immediate 

: WHILE ( flag -- ) COMPILE (?BRANCH) >MARK ; immediate 

: REPEAT ( -- ) COMPILE (BRANCH) swap <RESOLVE >RESOLVE ; immediate 
: UNTIL ( flag -- ) COMPILE (?BRANCH) <RESOLVE ; immediate 


\ Simple arithmetical functions 


DEFINE U+ ( x y -- z ) BEGIN DUP WHILE 1- SWAP 1+ SWAP REPEAT DROP END 
DEFINE U- ( x y -- z ) BEGIN DUP WHILE 1+ SWAP 1- SWAP REPEAT DROP END 
DEFINE NEGATE ( x -- y ) NOT 1+ END 

DEFINE + ( x y -- z ) DUP @< IF U- ELSE U+ THEN END 

DEFINE - ( x y -- z ) NEGATE + END 


\ More relation functions 


DEFINE < ( x y -- flag) - @< END 
DEFINE > ( x y -- flag) - @> END 


\ Some test code just to show that it works 


4 CONSTANT X 
2 CONSTANT Y 


DEFINE TEST ( ) 
X Y + Y > HALT 
END 


TEST run 


